"fabric" <- data.frame(
leng = c(551, 651, 832, 375, 715, 868, 271, 630, 491, 372, 645, 441, 
            895, 458, 642, 492, 543, 842, 905, 542, 522, 122, 657, 170, 
            738, 371, 735, 749, 495, 716, 952, 417),
y =  c(6, 4, 17, 9, 14, 8, 5, 7, 7, 7, 6, 8, 28, 4, 10, 4, 8, 9, 23, 9, 6, 1, 9, 4, 9, 14, 17, 10, 7, 3, 9, 2),
x =  c(6.31173480915291, 6.47850964220857, 6.72383244082121, 5.92692602597041, 6.57228254269401, 6.76619171466035, 
    5.6021188208797, 6.44571981938558, 6.19644412779452, 5.91889385427315, 6.46925031679577, 6.08904487544685, 
    6.79682371827486, 6.12686918411419, 6.46458830368996, 6.19847871649231, 6.29710931993394, 6.73578001424233, 
    6.80793494369993, 6.29526600143965, 6.25766758788264, 4.80402104473326, 6.48768401848461, 5.13579843705026, 
    6.60394382460047, 5.91620206260744, 6.59987049921284, 6.61873898351722, 6.20455776256869, 6.57368016696065, 
    6.85856503479136, 6.0330862217988),
row.names = paste(1:32))
